home *** CD-ROM | disk | FTP | other *** search
- object FrmJunk: TFrmJunk
- Left = 382
- Top = 102
- BorderIcons = [biSystemMenu]
- BorderStyle = bsSingle
- Caption = 'Junk Mail Filtering'
- ClientHeight = 410
- ClientWidth = 518
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnCreate = FormCreate
- DesignSize = (
- 518
- 410)
- PixelsPerInch = 120
- TextHeight = 16
- object Bevel1: TBevel
- Left = 0
- Top = 370
- Width = 522
- Height = 4
- Shape = bsTopLine
- end
- object LblPass: TLabel
- Left = 76
- Top = 289
- Width = 245
- Height = 18
- Caption = 'You entered an incorrect password!'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 18
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Visible = False
- end
- object gb: TElGroupBox
- Left = 8
- Top = 6
- Width = 505
- Height = 83
- AutoDisableChildren = False
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- Caption = ' Configure Junk Mail filtering features '
- Flat = False
- FlatAlways = False
- ShowFocus = False
- TabOrder = 0
- object Label1: TLabel
- Left = 12
- Top = 55
- Width = 131
- Height = 16
- Caption = '&Select sensitivity level:'
- end
- object cbEnabled: TElCheckBox
- Left = 20
- Top = 26
- Width = 254
- Height = 20
- Cursor = crDefault
- Caption = '&Enable automatic Junk Mail filtering'
- TabOrder = 0
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- OnClick = cbEnabledClick
- DoubleBuffered = False
- end
- object cbSensitivity: TElAdvancedComboBox
- Left = 172
- Top = 51
- Width = 183
- Height = 24
- AutoCompletion = False
- Flat = False
- HandleDialogKeys = False
- HorizontalScroll = False
- ItemIndex = -1
- ItemHeight = 16
- Style = csDropDownList
- TabOrder = 1
- OnChange = cbSensitivityChange
- end
- end
- object pc: TElPageControl
- Left = 0
- Top = 96
- Width = 523
- Height = 274
- BorderWidth = 0
- DrawFocus = False
- Flat = False
- HotTrack = False
- Multiline = True
- RaggedRight = True
- ScrollOpposite = False
- ShowBorder = False
- Style = etsFlatTabs
- TabIndex = 0
- TabPosition = etpTop
- HotTrackFont.Charset = DEFAULT_CHARSET
- HotTrackFont.Color = clBlue
- HotTrackFont.Height = -13
- HotTrackFont.Name = 'MS Sans Serif'
- HotTrackFont.Style = []
- ActivePage = TabSheet6
- ActiveTabFont.Charset = DEFAULT_CHARSET
- ActiveTabFont.Color = clWindowText
- ActiveTabFont.Height = -13
- ActiveTabFont.Name = 'MS Sans Serif'
- ActiveTabFont.Style = []
- OnDrawTab = pcDrawTab
- ParentColor = False
- TabOrder = 1
- UseXPThemes = False
- DockOrientation = doNoOrient
- object TabSheet6: TElTabSheet
- OnShow = TabSheet6Show
- PageControl = pc
- ImageIndex = 5
- Caption = 'St&atus'
- object Label8: TLabel
- Left = 124
- Top = 211
- Width = 197
- Height = 32
- Alignment = taRightJustify
- Caption =
- 'Apply settings and test Junk Mail '#13#10'filtering on selected messag' +
- 'e(s):'
- end
- object Label27: TLabel
- Left = 172
- Top = 168
- Width = 147
- Height = 32
- Alignment = taRightJustify
- Caption = 'Teach Bayesian filters,'#13#10'selected message(s) are:'
- end
- object LblStatus: TElHTMLLabel
- Left = 11
- Top = 15
- Width = 496
- Height = 148
- Cursor = crDefault
- IsHTML = True
- WordWrap = True
- LinkStyle = [fsUnderline]
- OnLinkClick = LblStatusLinkClick
- AutoSize = False
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- Transparent = True
- end
- object MemoStatus: TMemo
- Left = 486
- Top = 10
- Width = 497
- Height = 146
- BorderStyle = bsNone
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentColor = True
- ParentFont = False
- ReadOnly = True
- TabOrder = 3
- end
- object BtnTest: TButton
- Left = 331
- Top = 211
- Width = 180
- Height = 33
- Caption = 'Apply and &Test'
- TabOrder = 2
- OnClick = BtnTestClick
- end
- object BtnLearnJunk: TButton
- Left = 331
- Top = 170
- Width = 88
- Height = 30
- Caption = 'Junk'
- TabOrder = 0
- OnClick = BtnLearnJunkClick
- end
- object BtnLearnGood: TButton
- Left = 423
- Top = 170
- Width = 88
- Height = 30
- Caption = 'Good'
- TabOrder = 1
- OnClick = BtnLearnGoodClick
- end
- end
- object TabSheet1: TElTabSheet
- PageControl = pc
- Caption = '&General Settings'
- Visible = False
- object GroupBox2: TElGroupBox
- Left = 12
- Top = 8
- Width = 491
- Height = 112
- AutoDisableChildren = False
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- Caption = ' Run automatic junk mail filters: '
- Flat = False
- FlatAlways = False
- ParentColor = True
- ShowFocus = False
- TabOrder = 0
- object Label5: TLabel
- Left = 30
- Top = 38
- Width = 343
- Height = 16
- Caption = 'place headers to Junk mailbox, delete message from server'
- Transparent = True
- end
- object Label6: TLabel
- Left = 30
- Top = 88
- Width = 350
- Height = 16
- Caption = 'place message to Junk mailbox, delete message from server'
- Transparent = True
- end
- object cbPreFetch: TElRadioButton
- Left = 10
- Top = 18
- Width = 194
- Height = 20
- Cursor = crDefault
- Checked = True
- Caption = 'Before downloading message'
- TabOrder = 0
- DoubleBuffered = False
- end
- object cbPostFetch: TElRadioButton
- Left = 10
- Top = 68
- Width = 184
- Height = 20
- Cursor = crDefault
- Caption = 'After downloading message'
- TabOrder = 1
- DoubleBuffered = False
- end
- end
- object ElGroupBox1: TElGroupBox
- Left = 12
- Top = 130
- Width = 491
- Height = 90
- AutoDisableChildren = False
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- Caption = ' Filter Settings: '
- Flat = False
- FlatAlways = False
- ParentColor = True
- ShowFocus = False
- TabOrder = 1
- object Label2: TLabel
- Left = 17
- Top = 25
- Width = 112
- Height = 16
- Caption = 'Custom Sensitivity:'
- end
- object Label3: TLabel
- Left = 185
- Top = 25
- Width = 44
- Height = 16
- Alignment = taRightJustify
- Caption = 'Highest'
- end
- object Label4: TLabel
- Left = 423
- Top = 25
- Width = 41
- Height = 16
- Caption = 'Lowest'
- end
- object BarSensitivity: TTrackBar
- Left = 230
- Top = 19
- Width = 190
- Height = 28
- Max = 100
- Min = 10
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 5
- Position = 10
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = BarSensitivityChange
- OnExit = BarBayesThresholdExit
- end
- object cbRunNonBayes: TElCheckBox
- Left = 20
- Top = 54
- Width = 224
- Height = 20
- Cursor = crDefault
- Caption = ' Run standard non-Bayesian filters'
- TabOrder = 1
- OnClick = cbEnabledClick
- DoubleBuffered = False
- end
- end
- end
- object ElTabSheet1: TElTabSheet
- PageControl = pc
- Caption = 'Bayesian'
- Visible = False
- object gbBayes: TElGroupBox
- Left = 12
- Top = 8
- Width = 491
- Height = 215
- AutoDisableChildren = True
- BorderSides = [ebsLeft, ebsRight, ebsTop, ebsBottom]
- Caption = ' Run learning Bayesian filters: '
- Flat = False
- FlatAlways = False
- ParentColor = True
- ShowCheckBox = True
- ShowFocus = False
- TabOrder = 0
- OnClick = cbEnabledClick
- object Label15: TLabel
- Left = 201
- Top = 29
- Width = 25
- Height = 16
- Alignment = taRightJustify
- Caption = '0.50'
- end
- object Label16: TLabel
- Left = 371
- Top = 29
- Width = 25
- Height = 16
- Caption = '0.99'
- end
- object Label17: TLabel
- Left = 17
- Top = 59
- Width = 91
- Height = 16
- Caption = 'Good mail bias:'
- end
- object Label18: TLabel
- Left = 219
- Top = 59
- Width = 7
- Height = 16
- Alignment = taRightJustify
- Caption = '1'
- end
- object Label19: TLabel
- Left = 371
- Top = 59
- Width = 7
- Height = 16
- Caption = '5'
- end
- object Label20: TLabel
- Left = 39
- Top = 121
- Width = 69
- Height = 16
- Caption = 'Junk Score:'
- end
- object Label21: TLabel
- Left = 219
- Top = 121
- Width = 7
- Height = 16
- Alignment = taRightJustify
- Caption = '0'
- end
- object Label22: TLabel
- Left = 371
- Top = 121
- Width = 21
- Height = 16
- Caption = '100'
- end
- object Label23: TLabel
- Left = 39
- Top = 151
- Width = 73
- Height = 16
- Caption = 'Good Score:'
- end
- object Label24: TLabel
- Left = 219
- Top = 151
- Width = 7
- Height = 16
- Alignment = taRightJustify
- Caption = '0'
- end
- object Label25: TLabel
- Left = 371
- Top = 151
- Width = 25
- Height = 16
- Caption = '-100'
- end
- object Label7: TLabel
- Left = 17
- Top = 91
- Width = 301
- Height = 16
- Caption = 'After classifying a message give the following score:'
- end
- object Label26: TLabel
- Left = 17
- Top = 29
- Width = 88
- Height = 16
- Caption = 'Junk threshold:'
- end
- object BarBayesThreshold: TTrackBar
- Left = 236
- Top = 23
- Width = 128
- Height = 28
- Hint = '12'
- Max = 99
- Min = 50
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 5
- Position = 90
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = BarBayesThresholdChange
- OnExit = BarBayesThresholdExit
- end
- object BarBayesGoodBias: TTrackBar
- Left = 236
- Top = 53
- Width = 128
- Height = 28
- Max = 50
- Min = 10
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 5
- Position = 20
- SelEnd = 0
- SelStart = 0
- TabOrder = 1
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = BarBayesThresholdChange
- OnExit = BarBayesThresholdExit
- end
- object BarBayesJunkScore: TTrackBar
- Left = 236
- Top = 115
- Width = 128
- Height = 28
- Max = 100
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 5
- Position = 20
- SelEnd = 0
- SelStart = 0
- TabOrder = 2
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = BarBayesThresholdChange
- OnExit = BarBayesThresholdExit
- end
- object BarBayesGoodScore: TTrackBar
- Left = 236
- Top = 145
- Width = 128
- Height = 28
- Max = 100
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 5
- Position = 20
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- TickMarks = tmBottomRight
- TickStyle = tsAuto
- OnChange = BarBayesThresholdChange
- OnExit = BarBayesThresholdExit
- end
- object BtnResetBayesian: TButton
- Left = 331
- Top = 184
- Width = 151
- Height = 24
- Caption = 'Reset Defaults'
- TabOrder = 5
- OnClick = BtnResetBayesianClick
- end
- object BtnStrictBayesian: TButton
- Left = 169
- Top = 184
- Width = 151
- Height = 24
- Caption = 'Strict Bayesian'
- TabOrder = 4
- OnClick = BtnStrictBayesianClick
- end
- end
- end
- object TabSheet2: TElTabSheet
- PageControl = pc
- ImageIndex = 1
- Caption = '&Word Lists'
- Visible = False
- object Label9: TLabel
- Left = 16
- Top = 6
- Width = 376
- Height = 48
- Caption =
- 'Modify word lists used during filtering process. Junk Mail filte' +
- 'ring '#13#10'is not done solely based on these lists, but you can use ' +
- 'them to '#13#10'ensure certain senders are banned or always allowed th' +
- 'rough.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label10: TLabel
- Left = 170
- Top = 76
- Width = 141
- Height = 16
- Caption = 'Ban senders or domains'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label11: TLabel
- Left = 170
- Top = 107
- Width = 174
- Height = 16
- Caption = 'Ban full or partial subject lines'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label12: TLabel
- Left = 170
- Top = 138
- Width = 267
- Height = 16
- Caption = 'Allowed senders (not already in address book)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label13: TLabel
- Left = 170
- Top = 169
- Width = 274
- Height = 16
- Caption = 'Allowed recipients (if you use e-mail forwarding)'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object Label14: TLabel
- Left = 170
- Top = 194
- Width = 268
- Height = 32
- Caption =
- 'For advanced users only, not used if filtering is'#13#10'done before d' +
- 'ownloading message'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = 16
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object BtnJSenders: TButton
- Left = 9
- Top = 72
- Width = 151
- Height = 24
- Caption = 'Banned Senders'
- TabOrder = 0
- OnClick = BtnJSendersClick
- end
- object BtnJSubjects: TButton
- Left = 9
- Top = 103
- Width = 151
- Height = 24
- Caption = 'Banned Subjects'
- TabOrder = 1
- OnClick = BtnJSendersClick
- end
- object BtnESenders: TButton
- Left = 9
- Top = 134
- Width = 151
- Height = 24
- Caption = 'Allowed Senders'
- TabOrder = 2
- OnClick = BtnJSendersClick
- end
- object BtnEReceivers: TButton
- Left = 9
- Top = 165
- Width = 151
- Height = 24
- Caption = 'Allowed Receivers'
- TabOrder = 3
- OnClick = BtnJSendersClick
- end
- object BtnBody: TButton
- Left = 9
- Top = 196
- Width = 151
- Height = 24
- Caption = 'Message Body'
- TabOrder = 4
- OnClick = BtnJSendersClick
- end
- end
- end
- object BtnOK: TButton
- Left = 298
- Top = 372
- Width = 100
- Height = 30
- Anchors = [akRight, akBottom]
- Caption = '&OK'
- Default = True
- TabOrder = 2
- OnClick = BtnOKClick
- end
- object BtnCancel: TButton
- Left = 407
- Top = 372
- Width = 100
- Height = 30
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 3
- OnClick = BtnCancelClick
- end
- object PnlGrad: TElPanel
- Left = 0
- Top = 92
- Width = 523
- Height = 5
- BackgroundType = bgtVertGradient
- GradientSteps = 32
- Align = alNone
- BevelOuter = bvNone
- UseXPThemes = False
- TabOrder = 4
- DockOrientation = doNoOrient
- end
- end
-